Option Explicit
Sub K_Sample002()
    Dim I       As Long
    Dim myAr()  As Long
    Dim myAr2() As Long
    Dim b       As Variant
    '1}C
    ReDim myAr(1 To 10)
    ReDim myAr2(1 To 10)
    For I = 1 To 10
        myAr(I) = I * 2
        myAr2(I) = I * 3
    Next
    With WorksheetFunction
        'w
        Debug.Print .Match(4, myAr)
        Debug.Print .Index(myAr, 5)
        Debug.Print .Lookup(6, myAr, myAr2)
    End With
End Sub
